perm filename PP.SAI[PIX,HPM] blob sn#419622 filedate 1979-02-19 generic text, type C, neo UTF8
COMMENT āŠ—   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	BEGIN "PP"
C00003 ENDMK
CāŠ—;
BEGIN "PP"
REQUIRE "PIXHDR.SAI[VIS,HPM]" SOURCE_FILE;

   BEGIN
   INTEGER I,J;
   INTEGER ARRAY PIC[0:PFLDIM("FOO1")];
   GETPFL("FOO1",PIC[0]);
   SETFORMAT(3,0);
   FOR Iā†0 STEP 1 UNTIL PIC[PCLN]-1 DO
      BEGIN
      FOR Jā†0 STEP 1 UNTIL PIC[LNBY]-1 DO  PRINT(PIXEL(PIC[0],I,J));
      PRINT('15&'12);
      END;
   END;
END;